home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Corners.dxr / playing cards_57_stock card.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.1 KB  |  36 lines
  1. property spriteNum
  2. global stock, waste, redeals, spritelist
  3.  
  4. on beginSprite me
  5.   stock = new(script("card pile"))
  6.   waste = [:]
  7.   stock.cards = shuffle()
  8.   redeals = 0
  9. end
  10.  
  11. on mouseDown me
  12.   if sprite(spriteNum).member = member("backofcard", "playing cards") then
  13.     puppetSound(3, "deal1")
  14.     sprite(6).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  15.     stock.cards.deleteAt(1)
  16.     waste[makesymbol(6)].addCard(6)
  17.     if stock.cards.count = 0 then
  18.       if redeals < 2 then
  19.         sprite(spriteNum).member = member("replenish", "playing cards")
  20.       else
  21.         sprite(spriteNum).member = member("block", "playing cards")
  22.         checklose()
  23.       end if
  24.     end if
  25.   else
  26.     if sprite(spriteNum).member = member("replenish", "playing cards") then
  27.       stock.cards = reshuffle(spriteNum)
  28.       waste[makesymbol(6)].cards.deleteAll()
  29.       redeals = redeals + 1
  30.       sprite(spriteNum).member = member("backofcard", "playing cards")
  31.       sprite(5).member = member("block", "playing cards")
  32.       sprite(6).member = member("block", "playing cards")
  33.     end if
  34.   end if
  35. end
  36.